home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 96 / Amiga News 96.iso / amig_ad_os / amitex / arexx / guideamitex.amitex < prev    next >
Text File  |  1997-01-18  |  961b  |  47 lines
  1. /* Script de lancement d'AmigaGuide pour avoir une explication sur
  2.    une instruction EdiCalc spécifiée. Utilise EdiCalc.guide.
  3.    Chez Corbin, 25 Août 1996, version 1.00 */
  4.  
  5. signal on error
  6. options results
  7.  
  8. port=address()
  9.  
  10. if ~show(p, "AIDE_AMITEX.1") then do
  11.     address command
  12.     'run AmigaGuide HELP:Amitex.guide PORTNAME AIDE_AMITEX.1 REQUESTER'
  13.     node = lecture_node(port)
  14.     address command
  15.     do 20 while ~show('P', "AIDE_AMITEX.1")
  16.     waitforport AIDE_AMITEX.1
  17.     end
  18. end
  19. else node = lecture_node(port)
  20.  
  21. address AIDE_AMITEX.1
  22. 'unzoomwindow'
  23. 'windowtofront'
  24. 'Link' node
  25.  
  26. exit
  27.  
  28. error:
  29. 'MESSAGE("Script GuideCalc"+CHR(10)+"Erreur en ligne 'SIGL'")'
  30. exit
  31.  
  32. lecture_node: procedure
  33.     parse arg port
  34.     address(port)
  35.     'BLOCK(0)'
  36.     if result= 0 then
  37.     'WORD(0)'       /* Lecture du mot courant */
  38.     else
  39.     'TEXTMARK(-1)'
  40.     node = result
  41.     if node = "" then do
  42.     'ASK("Nom du node ?")'
  43.     node = result
  44.     if node = "" then exit
  45.     end
  46. return node
  47.